home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / funk.kreise l5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  170b  |  10 lines
  1. 10 sys 37173,"0",-5,5,-5*0.625
  2. 20 :
  3. 30 for a=3 to 1 step -0.5
  4. 40 : sys 37173,"+sqr(a*a-x*x)"
  5. 50 : sys 37173,"-sqr(a*a-x*x)"
  6. 60 next a
  7. 70 :
  8. 80 poke 198,0:wait198,1:getz$
  9. 90 sys 40211
  10.